Cream of the Crop 26/Cream of the Crop 26.iso/program/ddj0897.zip/RCSC.ZIP/PACKAGES/AWK320.ZIP/ASIA.AWK

Text File | 1990-02-08 | 245b | 8 lines

# compute the total population and number of Asian countries
# AKW p38

$4 == "Asia" { pop = pop + $3; n = n + 1 }
END          { print "Total population of the", n,
                   "Asian countries is", pop, "million."
             }